home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir30 / drftls.zip / DT_INIT.LSP < prev    next >
Lisp/Scheme  |  1993-09-26  |  1KB  |  59 lines
  1. ; DrafTools   [Version 1.00] 9/25/93       
  2. ;
  3. ; ***************************************
  4. ; ****  Author:  Owen Wengerd        ****
  5. ; ****                               ****
  6. ; ****  Manu-Soft Computer Services  ****
  7. ; ****  P.O. Box 84                  ****
  8. ; ****  Fredericksburg, OH  44627    ****
  9. ; ****  (216) 695-5903               ****
  10. ; ****  Compu-Serve ID:  71324,3252  ****
  11. ; ***************************************
  12.  
  13.  
  14. ; ============================
  15. ; ==  Set Global Variables  ==
  16. ; ============================
  17.  
  18. (setq *DT_PATH "c:\\acad\\draftool\\")
  19.  
  20.  
  21.  
  22.  
  23.  
  24. ; ================================
  25. ; ==  Define Startup Functions  ==
  26. ; ================================
  27.  
  28. (defun dt_load (filename / path)
  29.   (if 
  30.     (not
  31.       (and
  32.         *DT_PATH 
  33.         (setq path
  34.           (findfile 
  35.             (strcat 
  36.               *DT_PATH 
  37.               (if (= "\\" (substr *DT_PATH (strlen *DT_PATH) 1)) "" "\\") 
  38.               filename
  39.               ".LSP"
  40.             )
  41.           )
  42.         )
  43.       )
  44.     )
  45.     (setq path (findfile (strcat filename ".LSP")))
  46.   )
  47.   (if path 
  48.     (load path)
  49.     (alert (strcat "     Cannot load " filename ".LSP!     "))
  50.   )
  51. )
  52.  
  53.  
  54. (defun C:EDTITLE  () (dt_load "EDTITLE")  (C:EDTITLE))
  55. (defun C:INSTITLE () (dt_load "INSTITLE") (C:INSTITLE))
  56. (defun C:MAKEBDR  () (dt_load "MAKEBDR")  (C:MAKEBDR))
  57. (defun C:RE-ORDER () (dt_load "RE-ORDER") (C:RE-ORDER))
  58.  
  59.